#!perl -T

use strict;
use warnings;
use Test::More tests => 2;;
use Test::BoostUnit  qw(:ALL);

like(makeCloseTestCase (), qr|<TestingTime>0</TestingTime>\s*</TestCase>\s*|ms, "makeCloseTestCase - No Time");
like(makeCloseTestCase (10), qr|<TestingTime>10</TestingTime>\s*</TestCase>\s*|ms, "makeCloseTestCase - With Time");

